Otherware/Otherware_1_SB_Development.iso/mac/hypercar/educatio/birdatmy.sit/Bird Anatomy%d0v1.2d/card_12113.txt

Text File | 1989-07-02 | 16.6 KB | 774 lines

-- card: 12113 from stack: in.2d
-- bmap block id: 6958
-- flags: 0000
-- background id: 5175
-- name: Main Menu/Vdisc
----- HyperTalk script -----
on openCard
  video frame
end openCard

on closeCard
  video frame, off
  set scroll of card field "vdisc" to 0
  hide card field "vdisc"
end closeCard







-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=294 right=321 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  show card field "Author's Note"
end mouseDown



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=109 right=140 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  go to card "Head Anatomy"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=76 right=107 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  go to card "General"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=137 top=98 right=115 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual zoom open
  go to card "Beak Anatomy"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=439 top=28 right=71 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual zoom open
  go to card "General"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=258 top=283 right=319 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual zoom open
  go to card "Feet"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=95 right=114 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual zoom open
  go to card "Eye Anatomy-1"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=142 right=173 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  go to card "Wings-1"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=208 right=239 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  go to card "Flight-1"
end mouseUp



-- part 24 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=246 top=33 right=251 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pop Message
----- HyperTalk script -----
on mousedown
  hide card field "Pop Message"
end mousedown



-- part 4 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=294 top=88 right=290 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menu Note
----- HyperTalk script -----
on mouseDown
  hide card field "menu Note"
end mouseDown



-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=175 right=206 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  go to card "Feather-1"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=241 right=272 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual iris open
  go to card "Ecology-1"
end mouseUp



-- part 27 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=4 top=81 right=290 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Author's Note
----- HyperTalk script -----
on mousedown
  hide card field "Author's Note"
end mousedown



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=366 top=175 right=205 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  video play
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=278 top=175 right=205 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  video play, reverse
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=232 top=175 right=205 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  video fast, reverse
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=175 right=205 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  video fast
end mouseUp



-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=231 top=245 right=265 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 34
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: SearchNumber


-- part 33 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=318 top=254 right=266 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  put card field "Searchnumber" into searchFrame
  get searchFrame
  if it is empty then ask "What frame number?"
  if it is empty then
    exit mouseUp
  else
    put it into searchFrame
    put it into card field "Searchnumber"
    video search, searchFrame
  end if
end mouseUp


-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=366 top=210 right=240 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  video step
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=277 top=210 right=240 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  video step, reverse
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=232 top=210 right=240 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  if the shiftKey is down then
    video scan, reverse
  else
    repeat 5
      video step, reverse
    end repeat
  end if
end mouseDown

on mouseUp
  video stop
end mouseUp


-- part 37 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=210 right=240 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  if the shiftKey is down then
    video scan
  else
    repeat 5
      video step
    end repeat
  end if
end mouseDown

on mouseUp
  video stop
end mouseUp




-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=359 top=129 right=148 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  doMenu "message"
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=387 top=246 right=262 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  ask "Play from here until what frame?"
  if it is empty then
    exit mouseUp
  else
    put it into playFrame
    put playFrame into card field "SearchNumber"
    video play, till, playFrame
  end if
end mouseUp





-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=129 right=148 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card "Main Menu"
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=327 right=340 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card "Main Menu"
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=233 top=127 right=139 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card "Main Menu"
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=333 top=129 right=147 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ?
----- HyperTalk script -----
on mouseDown
  show card field "vdisc"
end mouseDown



-- part 43 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=26 top=49 right=252 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vdisc
----- HyperTalk script -----
on mouseDown
  set scroll of me to 0
  hide card field "vdisc"
end mouseDown



-- part 44 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=310 top=317 right=338 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Vdisc
----- HyperTalk script -----
on mouseUp
  go to card "Main Menu"
end mouseUp



-- part 45 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=244 top=94 right=288 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Menu Icon
----- HyperTalk script -----
on mouseDown
  hide card field "menu icon"
end mouseDown



-- part 46 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=167 top=40 right=287 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Help Message
----- HyperTalk script -----
on mouseDown
  hide card field "help message"
end mouseDown



-- part contents for card part 4
----- text -----
Anywhere else in the program clicking on this icon will bring you back to this main menu screen, but since you're here already the button just shows you this little note...

Shift-Click on this button for more general help.

Click on the box to close it.

-- part contents for card part 24
----- text -----
To avoid cluttering the screen many cards have hidden "pop-up" labels of anatomic structures. Some cards also have notes attached to transparent buttons. This icon lets you know transparent buttons are present on the card. In any HyperCard stack you can hold down the Command and Option keys simultaneously to show the locations of any hidden buttons.

Click on box to close.

-- part contents for card part 27
----- text -----
Illustrations and design:

Patrick J. Lynch
Biomedical Communications
Yale School of Medicine
333 Cedar Street
New Haven, CT 06510

Copyright 1988,
all rights reserved.

(click to close)

-- part contents for card part 43
----- text -----
Click the "Exit" button to close this videodisc controller.

If you are currently hooked up to a Pioneer LD-V6000A videodisc player this panel will allow you to control the player, much like the remote on a home VCR. To search for individual frames put a frame number (1-53,000) into the field next to the "Search Frame" button. The "Play Until" button will ask you for a frame number; be sure it is higher than your current frame number. To step and scan quickly through an area of the disc use the step and step-5 buttons. Shift-Click on the step-5 button and hold the mouse down to scan through a section at high speed.

In general using the buttons on this controller should have no effect if your computer is not hooked up to a videodisc player. HOWEVER, some serial devices like the MacRecorderΓäó will respond to the calls to videodisc going out the "modem" serial port and may crash the program as a result. I havenΓÇÖt noticed any problems with modems though. If in doubt, don't use these buttons, or unplug other devices from your modem port.

The controller on this stack is set for a Pioneer LD-V6000A videodisc player. See the APDA stack "Video" for further information.

Apple Programmer's and DeveloperΓÇÖs Association
290 Southwest 43rd Street
Renton, WA 98055     ( 206 ) 251-6548

Click on this box to close it.


-- part contents for card part 45
----- text -----
This button with the bird icon will bring you back to this main menu card when you click on it. Most cards have two of these buttons, one at the top of the screen and one at the bottom. Both buttons function the same wayΓÇô they bring you back to this main menu card.

Click on this box to close it.

-- part contents for card part 46
----- text -----
This is a "Help" button. It appears on all cards in this stack. When you click on it it will open a small message box with brief notes about the card you are on and reminders about how to get more help.

To get more general help on using this stack hold the shift key down and click on this help ("?") buttonΓÇô this brings you to a card with more complete descriptions of the standard navigation buttons used throughout this stack.

Click on this box to close it.

-- part contents for card part 32
----- text -----
100